home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / WALT.DISNEY.bas < prev   
BASIC Source File  |  2012-02-16  |  4KB  |  111 lines
  1. 100  HOME 
  2. 110  FOR D = 1 TO 2000: NEXT D
  3. 120  SPEED= 20
  4. 125  HTAB 4
  5. 130  VTAB 8: PRINT "A SHORT BIOGRAPHY OF WALT DISNEY"
  6. 140  FOR D = 1 TO 3000: NEXT D
  7. 150  HOME 
  8. 160  FOR D = 1 TO 500: NEXT D
  9. 162  GOSUB 2000
  10. 165  HOME 
  11. 166  FOR D = 1 TO 1000: NEXT D
  12. 170  VTAB 2: PRINT "WALT DISNEY'S NAME IS A NAME THAT IS"
  13. 180  FOR D = 1 TO 40: NEXT D
  14. 190  VTAB 4: PRINT "RECOGNIZED IMMEDIATEDLY BY CHILDREN"
  15. 200  FOR D = 1 TO 40: NEXT D
  16. 210  VTAB 6: PRINT "AROUND THE WORLD."
  17. 220  FOR D = 1 TO 40: NEXT D
  18. 230  VTAB 8: PRINT "WALT DISNEY BECAME FAMOUS FOR HIS"
  19. 240  FOR D = 1 TO 40: NEXT D
  20. 250  VTAB 10: PRINT "AMAZING ANIMATED CARTOONS."
  21. 260  FOR D = 1 TO 200: NEXT D
  22. 270  VTAB 12: PRINT "EVERYBODY EVERYWHERE KNOWS ABOUT"
  23. 280  FOR D = 1 TO 210: NEXT D
  24. 290  VTAB 14: PRINT "MICKEY MOUSE AND DONALD DUCK."
  25. 300  FOR D = 1 TO 200: NEXT D
  26. 310  VTAB 16: PRINT "IN SOME WAYS, WALT DISNEY'S CARTOON"
  27. 320  FOR D = 1 TO 40: NEXT D
  28. 330  VTAB 18: PRINT "PEOPLE SEEM ALMOST AS REAL AS REAL"
  29. 340  FOR D = 1 TO 40: NEXT D
  30. 350  VTAB 20: PRINT "PEOPLE."
  31. 360  FOR D = 1 TO 200: NEXT D
  32. 370  VTAB 22: PRINT "AS A CHILD, WALT LOVED TO DRAW."
  33. 380  FOR D = 1 TO 200: NEXT D
  34. 390  PRINT : PRINT "HIS FAVORITE CLASS IN SCHOOL WAS ALWAYS"
  35. 400  FOR D = 1 TO 40: NEXT D
  36. 410  PRINT : PRINT "ART CLASS."
  37. 420  FOR D = 1 TO 200: NEXT D
  38. 430  PRINT : PRINT "AS HE GREW OLDER, HE LOOKED TO FIND A"
  39. 440  FOR D = 1 TO 40: NEXT D
  40. 450  PRINT : PRINT "CAREER WHERE HE COULD USE HIS ARTISTIC"
  41. 460  FOR D = 1 TO 100: NEXT D
  42. 470  PRINT : PRINT "TALENT."
  43. 480  FOR D = 1 TO 200: NEXT D
  44. 490  PRINT : PRINT "SO, HE DECIDED TO START A CARTOON"
  45. 500  FOR D = 1 TO 40: NEXT D
  46. 510  PRINT : PRINT "COMPANY WITH HIS BROTHER ROY."
  47. 520  FOR D = 1 TO 200: NEXT D
  48. 530  PRINT : PRINT "AT FIRST THE COMPANY MADE ONLY SILENT"
  49. 540  FOR D = 1 TO 40: NEXT D
  50. 550  PRINT : PRINT "CARTOONS, IN BLACK AND WHITE."
  51. 560  FOR D = 1 TO 200: NEXT D
  52. 570  PRINT : PRINT "LATER THE COMPANY STARTED MAKING COLOR"
  53. 580  FOR D = 1 TO 40: NEXT D
  54. 590  PRINT : PRINT "CARTOONS WITH A SOUNDTRACK."
  55. 600  FOR D = 1 TO 200: NEXT D
  56. 610  PRINT : PRINT "WALT DISNEY'S MOST FAMOUS FILMS INCLUDE:"
  57. 620  FOR D = 1 TO 50: NEXT D
  58. 630  PRINT : PRINT "'SNOW WHITE AND THE SEVEN DWARVES',"
  59. 640  FOR D = 1 TO 100: NEXT D
  60. 650  PRINT : PRINT "'BAMBI',"
  61. 660  FOR D = 1 TO 100: NEXT D
  62. 670  VTAB 23: HTAB 10: PRINT "AND 'PINOCCIO'."
  63. 680  FOR D = 1 TO 500: NEXT D
  64. 690  PRINT : PRINT "HE ALSO MADE MOVIES WITH REAL PEOPLE,"
  65. 700  FOR D = 1 TO 40: NEXT D
  66. 710  PRINT : PRINT "RATHER THAN CARTOON PEOPLE."
  67. 720  FOR D = 1 TO 200: NEXT D
  68. 730  PRINT : PRINT "THE AWARD WINNING FILM CALLED"
  69. 740  FOR D = 1 TO 50: NEXT D
  70. 750  PRINT : PRINT "'MARY POPPINS', HAS BEEN A FAVORITE"
  71. 760  FOR D = 1 TO 50: NEXT D
  72. 770  PRINT : PRINT "OF CHILDREN EVERYWHERE."
  73. 780  FOR D = 1 TO 500: NEXT D
  74. 790  PRINT : PRINT "WHICH ALL GOES TO SHOW HOW MUCH ONE"
  75. 800  FOR D = 1 TO 100: NEXT D
  76. 810  PRINT : PRINT "PERSON CAN ACCOMPLISH IN ONE"
  77. 820  FOR D = 1 TO 50: NEXT D
  78. 830  PRINT : PRINT "LIFETIME."
  79. 835  FOR D = 1 TO 1000: NEXT D
  80. 840  FOR X = 1 TO 15
  81. 850  PRINT 
  82. 860  FOR D = 1 TO 200: NEXT D
  83. 870  NEXT X
  84. 880  VTAB 12: PRINT "(C) COPYRIGHT JUNE 1987    PHIL SHAPIRO"
  85. 890  FOR D = 1 TO 4000: NEXT D
  86. 900  VTAB 16: PRINT "WOULD YOU LIKE TO READ THIS AGAIN ?"
  87. 910  FOR D = 1 TO 200: NEXT D
  88. 920  VTAB 18: PRINT "TYPE EITHER 'YES' OR NO',"
  89. 930  VTAB 20: PRINT "AND THEN PRESS RETURN."
  90. 940  INPUT R$
  91. 950  IF R$ = "Y"  THEN  GOTO 100
  92. 960  IF R$ = "YES"  THEN  GOTO 100
  93. 970  IF R$ = "N"  THEN  HOME : END 
  94. 980  IF R$ = "NO"  THEN  HOME : END 
  95. 2000  VTAB 8: HTAB 5: PRINT "PLEASE CHOOSE A DISPLAY SPEED."
  96. 2010  FOR D = 1 TO 200: NEXT D
  97. 2020  VTAB 10: HTAB 7: PRINT "TYPE EITHER 1,2,3, OR 4"
  98. 2030  FOR D = 1 TO 200: NEXT D
  99. 2040  VTAB 14: HTAB 18: PRINT "1. SLOW"
  100. 2050  FOR D = 1 TO 200: NEXT D
  101. 2060  VTAB 16: HTAB 18: PRINT "2. MEDIUM"
  102. 2070  FOR D = 1 TO 200: NEXT D
  103. 2080  VTAB 18: HTAB 18: PRINT "3. FAST"
  104. 2090  FOR D = 1 TO 200: NEXT D
  105. 2092  VTAB 20: HTAB 18: PRINT "4. SUPER-FAST"
  106. 2100  GET SP
  107. 2110  IF SP = 1  THEN  SPEED= 0: RETURN 
  108. 2120  IF SP = 2  THEN  SPEED= 10: RETURN 
  109. 2130  IF SP = 3  THEN  SPEED= 20: RETURN 
  110. 2140  IF SP = 4  THEN  SPEED= 60: RETURN 
  111. 2150  GOTO 2100